extern integer ieeeck_(integer *ispec, real *zero, real *one);
